home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / browser / ibrowsescripts / rexx / showmiami.ibrx < prev   
Text File  |  1998-05-24  |  469b  |  26 lines
  1. /* ShowMiami Sören Forsberg 1998 */
  2. /*
  3.    If not running, starts and show  miami and inhibits the auto-online setting
  4.    If running un-iconifies and brings to front ( if the calling window is in front)
  5. */
  6.   ADDRESS 'COMMAND'
  7.  
  8.  
  9.  
  10.  
  11.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  12.       ADDRESS 'COMMAND'
  13.       'Run MIAMI:Miami DONTCONNECT SETTINGS miami:miami.default'
  14.       'SYS:RexxC/WaitForPort MIAMI.1'
  15.  
  16.     END
  17.  
  18.  
  19.     IF SHOW('Ports','MIAMI.1') THEN DO
  20.       ADDRESS 'MIAMI.1'
  21.      
  22.       'SHOW'
  23.     END
  24.  
  25.  
  26.